home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Clinic / IBXTest2U.dfm / IBXTest2U.txt
Encoding:
Text File  |  2000-05-30  |  2.8 KB  |  140 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 107
  4.   Width = 426
  5.   Height = 255
  6.   Caption = 'Form1'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object DBGrid1: TDBGrid
  18.     Left = 8
  19.     Top = 8
  20.     Width = 401
  21.     Height = 209
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Charset = DEFAULT_CHARSET
  25.     TitleFont.Color = clWindowText
  26.     TitleFont.Height = -11
  27.     TitleFont.Name = 'MS Sans Serif'
  28.     TitleFont.Style = []
  29.   end
  30.   object IBDatabase1: TIBDatabase
  31.     DefaultTransaction = IBTransaction1
  32.     IdleTimer = 0
  33.     SQLDialect = 1
  34.     TraceFlags = []
  35.     OnLogin = IBDatabase1Login
  36.     Left = 32
  37.     Top = 24
  38.   end
  39.   object IBTable1: TIBTable
  40.     Database = IBDatabase1
  41.     Transaction = IBTransaction1
  42.     CachedUpdates = False
  43.     FieldDefs = <
  44.       item
  45.         Name = 'CUST_NO'
  46.         Attributes = [faRequired]
  47.         DataType = ftInteger
  48.       end
  49.       item
  50.         Name = 'CUSTOMER'
  51.         Attributes = [faRequired]
  52.         DataType = ftString
  53.         Size = 25
  54.       end
  55.       item
  56.         Name = 'CONTACT_FIRST'
  57.         DataType = ftString
  58.         Size = 15
  59.       end
  60.       item
  61.         Name = 'CONTACT_LAST'
  62.         DataType = ftString
  63.         Size = 20
  64.       end
  65.       item
  66.         Name = 'PHONE_NO'
  67.         DataType = ftString
  68.         Size = 20
  69.       end
  70.       item
  71.         Name = 'ADDRESS_LINE1'
  72.         DataType = ftString
  73.         Size = 30
  74.       end
  75.       item
  76.         Name = 'ADDRESS_LINE2'
  77.         DataType = ftString
  78.         Size = 30
  79.       end
  80.       item
  81.         Name = 'CITY'
  82.         DataType = ftString
  83.         Size = 25
  84.       end
  85.       item
  86.         Name = 'STATE_PROVINCE'
  87.         DataType = ftString
  88.         Size = 15
  89.       end
  90.       item
  91.         Name = 'COUNTRY'
  92.         DataType = ftString
  93.         Size = 15
  94.       end
  95.       item
  96.         Name = 'POSTAL_CODE'
  97.         DataType = ftString
  98.         Size = 12
  99.       end
  100.       item
  101.         Name = 'ON_HOLD'
  102.         DataType = ftString
  103.         Size = 1
  104.       end>
  105.     IndexDefs = <
  106.       item
  107.         Name = 'RDB$PRIMARY22'
  108.         Fields = 'CUST_NO'
  109.         Options = [ixPrimary, ixUnique]
  110.       end
  111.       item
  112.         Name = 'RDB$FOREIGN23'
  113.         Fields = 'COUNTRY'
  114.       end
  115.       item
  116.         Name = 'CUSTNAMEX'
  117.         Fields = 'CUSTOMER'
  118.       end
  119.       item
  120.         Name = 'CUSTREGION'
  121.         Fields = 'COUNTRY;CITY'
  122.       end>
  123.     StoreDefs = True
  124.     TableName = 'CUSTOMER'
  125.     Left = 176
  126.     Top = 24
  127.   end
  128.   object IBTransaction1: TIBTransaction
  129.     Active = False
  130.     DefaultDatabase = IBDatabase1
  131.     Left = 104
  132.     Top = 24
  133.   end
  134.   object DataSource1: TDataSource
  135.     DataSet = IBTable1
  136.     Left = 248
  137.     Top = 24
  138.   end
  139. end
  140.